// void, Obj This

Settlement this;
Ship       ship;
point      pt;
str        class_unit;
int r;

this = This.AsBuilding.settlement;  

r = EnvReadInt(.player, "RACE");

if (r==Carthage){
       class_unit = "ShipCarthage";
} else if (r==Iberia){
       class_unit = "ShipIberia";
} else if (r==Britain){
       class_unit = "ShipBritain";
} else if (r==Germany){
       class_unit = "ShipGermany";
} else if (r==Egypt){
       class_unit = "ShipEgypt";
} else if (r==Gaul){
       class_unit = "ShipGaul";
} else if(r == ImperialRome || r == RepublicanRome){
       class_unit = "ShipRome"; 
} else {
  	class_unit = cmdparam;
}
                
.GetCentralBuilding.Progress();
ship = .CreateShip(class_unit);
if (ship.IsValid)
{
	pt = .GetCentralBuilding.GetExitVector();
	ship.ShowBuildAnimation( pt );
}
